Software of the Month Club 1999 April/Software of the Month - Ultimate Collection Shareware 260.iso/pc/Lg.dir/00001_Script_1

Text File | 1999-02-02 | 5KB | 215 lines

on startMovie


  global HYPER,REQUIREMENTS

  set REQUIREMENTS to the memberNum of member "REQUIRETEXT"
  set HYPER to the memberNum of member "HYPERTEXT"

  global  LINECLICK,LASTCLICK
  set LASTCLICK to 1
  set LINECLICK to 1
  set the forecolor of member "progDisplay" to 255 -- set text to black
  set the forecolor of line LINECLICK of member "progDisplay" to 0
  setpath()


  --* keeps the escape key from exiting the program

  set the exitLock = TRUE
  set the keyDownScript = "NoEscape"



  --* This declares the variables for the finger cursor. *

  global FINGER, FINGERMASK,MAGNIFY, MAGNIFY2, MAGNIFYMASK
  set FINGER to the memberNum of member "Finger1"
  set FINGERMASK to the memberNum of member "Finger2"
  set MAGNIFY to the memberNum of member "MAGGLASS"
  set MAGNIFY2 to the memberNum of member "MAGGLASS2"
  set MAGNIFYMASK to the memberNum of member "MAGGLASS1"
  glowClear()

end



--* beep if the user tries quit using the escape key (53)
on NoEscape
  if the keyCode = 53 then beep
end





--* This handler hides/shows the glow images. eg: glow(5,TRUE) *

on glow WHICHSPRITE, TRUEORFALSE
  set the visible of sprite WHICHSPRITE to TRUEORFALSE
end glow

--* TURN OF ALL GLOWS ON START
on glowClear
  repeat with i = 19 to 36
    glow(i)
  end repeat
end

--* This handler switches the text color for a glow effect. eg.textglow("Hello",1)*

on textglow WHICHMEMBER, COLORNUMBER
  set the foreColor of member WHICHMEMBER to COLORNUMBER
end textglow


--* THIS HANDLER EXAMPLE OF DISABLEING HOTSPOTS WHEN RUNNING MIAW*
--on mouseEnter
--  if not count(the windowList) then
--    doRollover(52)
--  end if
--end
--
--
--on mouseLeave
--  if not count(the windowList) then
--    doRollout(52)
--  end if
--end



--* THIS HANDLER OPEN AND CENTERS A MOVIE IN A WINDOW *

on openMIAW MYWINDOW
  set myRect=the rect of window MYWINDOW
  set myStage=the rect of the Stage
  set myWidth=(getAt(myRect,3)-getAt(myRect,1))
  set myHeight=(getAt(myRect,4)-getAt(myRect,2))
  set myLocH=((getAt(myStage,3)+getAt(myStage,1))/2)-(myWidth/2)
  set myLocV=((getAt(myStage,2)+getAt(myStage,4))/2)-(myHeight/2)
  set myNewRect=rect(myLocH,myLocV,(myLocH+myWidth),(myLocV+myHeight))
  set the rect of window MYWINDOW=myNewRect
  set the windowType of window MYWINDOW to 2
  open window MYWINDOW
end openMIAW


--* THESE HANDLERS TURN ON A GLOW, TURN POINTER A HAND AND PLAYS A SOUND *

on doRollover NUMSPRITE,NUMSOUND
  glow(numsprite,TRUE)
  --  global finger,fingermask
  --  cursor[finger,fingermask]
  case  NUMSOUND of
    1: puppetsound 1, "Scissors"
    2: puppetsound 1, "Butane"
    3: puppetsound 1, "Scissors"
    4: puppetsound 1, "Scissors"
  end case
  updatestage
end


-- set which cursor to use

on mycursor WHICHCURSOR

  global finger,fingermask,MAGNIFY,MAGNIFY2,MAGNIFYMASK

  case  WHICHCURSOR of
    1: cursor[finger,fingermask]
    2: cursor [MAGNIFY,MAGNIFYMASK]
    3: cursor [MAGNIFY2,MAGNIFYMASK]
  end case
  updatestage

end






--* THIS HANDLER TURNS THE SPRITE PASSED TO IT TO INVISIBLE AND RESETS THE CURSOR
on doRollout numsprite
  glow(numsprite,FALSE)
  cursor 0
end

--* PLAYS A CLICK SOUND

on doClick
  puppetsound 1,"close"
  updateStage
end


on doZoomout numsprite,soundwait
  puppetsound 1, "close"
  if soundwait then
    repeat while soundbusy (1)
    end repeat
    set soundwait to FALSE
  end if
  glow(numsprite, TRUE)
  global MAGNIFY2, MAGNIFYMASK
  cursor [MAGNIFY2,MAGNIFYMASK]
  updatestage
end

on doZoomin numsprite,soundwait
  puppetsound 1, "close"
  if soundwait then
    repeat while soundbusy (1)
    end repeat
    set soundwait to FALSE
  end if
  glow(numsprite, TRUE)
  global MAGNIFY, MAGNIFYMASK
  cursor [MAGNIFY,MAGNIFYMASK]
  updatestage
end


on setpath
  Global SETUPPATH95,LINECLICK

  case LINECLICK of

    1:set SETUPPATH95 to line 1 of Field "SETUPS"
    2:set SETUPPATH95 to line 2 of Field "SETUPS"
    3:set SETUPPATH95 to line 3 of Field "SETUPS"
    4:set SETUPPATH95 to line 4 of Field "SETUPS"
    5:set SETUPPATH95 to line 5 of Field "SETUPS"
    6:set SETUPPATH95 to line 6 of Field "SETUPS"
    7:set SETUPPATH95 to line 7 of Field "SETUPS"
    8:set SETUPPATH95 to line 8 of Field "SETUPS"
    9:set SETUPPATH95 to line 9 of Field "SETUPS"
    10:set SETUPPATH95 to line 10 of Field "SETUPS"
    11:set SETUPPATH95 to line 11 of Field "SETUPS"
    12:set SETUPPATH95 to line 12 of Field "SETUPS"
    13:set SETUPPATH95 to line 13 of Field "SETUPS"
    14:set SETUPPATH95 to line 14 of Field "SETUPS"
    15:set SETUPPATH95 to line 15 of Field "SETUPS"
    16:set SETUPPATH95 to line 16 of Field "SETUPS"
    17:set SETUPPATH95 to line 17 of Field "SETUPS"
    18:set SETUPPATH95 to line 18 of Field "SETUPS"
    19:set SETUPPATH95 to line 19 of Field "SETUPS"
    20:set SETUPPATH95 to line 20 of Field "SETUPS"


  end case

end


-- Delays for x number of seconds
on timedelay SECONDS
  startTimer
  repeat while the timer < SECONDS * 60
    nothing
  end repeat
end